home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / browser / editimage.browse < prev   
Text File  |  2004-08-03  |  724b  |  40 lines
  1. /*
  2.  * ImageFX Browser Script
  3.  *
  4.  * All browser scripts are called as follows:
  5.  *
  6.  *    ScriptName.browse <numfiles> <filelist>
  7.  *
  8.  * Where:
  9.  *
  10.  *    <numfiles>        = Number of files selected (could be 0).
  11.  *    <filelist>        = File containing the list of files selected,
  12.  *                        one file per line, with full pathname.
  13.  *
  14.  * EditImage.browse:
  15.  *
  16.  *    Load the first image supplied into ImageFX; bring ImageFX to
  17.  *    the front.
  18.  *
  19.  */
  20.  
  21. OPTIONS RESULTS
  22.  
  23. PARSE ARG numfiles filelist .
  24.  
  25. IF numfiles > 0 THEN DO
  26.  
  27.    Screen2Front
  28.  
  29.    IF OPEN(infile, filelist, 'Read') THEN DO
  30.  
  31.       curfile = READLN(infile)
  32.       LoadBuffer '"'curfile'"' FORCE
  33.       Uniconify
  34.  
  35.       CALL CLOSE(infile)
  36.  
  37.    END
  38.  
  39. EXIT 0
  40.